home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 071-080 / amok77 / rexx / versionmodul / updateversionmodule.oed < prev    next >
Text File  |  1993-11-04  |  5KB  |  138 lines
  1. /* -----------------------------------------------------
  2.  
  3.   :Program.     UpdateVersionModule.oed
  4.   :Author.      Albert Weinert [awn]
  5.   :Address.     Feldblumenweg 2, D-5000 Köln 71
  6.   :Version.     V1.3
  7.   :Date.        28-Sep-1992
  8.   :Copyright.   Public Domain
  9.   :Language.    ARexx
  10.   :Translator.  ARexx 1.15
  11.   :Contents.    Updated das Version Modul das mit WriteVersionModule.oed geschrieben wurde
  12.   :Remark.      Es muss der Programmname hinter :Program. stehen ohne .mod.
  13.   :Imports.     Nichts
  14.   :History.     V0.0   [awn] 14-Jul-1992 : Begonnen
  15.   :History.     V1.0   [awn] 14-Jul-1992 : Funktionierende Version
  16.   :History.     V1.1   [awn] 22-Jul-1992 : OS2.0 Versionsstring von $VER nach $VER: korrigiert
  17.   :History.                                Dies ermöglicht erst das Anzeigen der Version mit
  18.   :History.                                dem Versions Befehl von der Shell
  19.   :History.     V1.2   [awn] 25-Jul-1992 : Das Module wird nun automatich gespeichert und
  20.   :History.                                Kompiliert, danach wird das Window wieder geschlossen
  21.   :History.     V1.3   [awn] 28-Sep-1992 : Es wird jetzt das Window nicht mehr geschlossen, aber
  22.   :History.            dafür wird jetzt eine History Datei geladen worin man die aktuellen
  23.   :History.            Veränderungen von Revision zu Revision festhalten kann. Ist ganz praktisch
  24.   :History.            denn diese Datei kann man als History Datei bei dem Programm beilegen.
  25.  
  26. ---------------------------------------------------------*/
  27.  
  28. options results
  29.  
  30. address 'OEd'
  31.  
  32. 'insertoff'; 'top'
  33. 'title "Erhöhe Revision"'
  34. 'findstr' ":Program."; 'next'
  35. 'wright';'wright';
  36. name = " "
  37. Do ForEver
  38.   'getasc'; cod = result
  39.   IF cod = 32 THEN break
  40.   IF cod = 0 THEN break
  41.   name = INSERT(D2C(cod),name,LENGTH(name))
  42.   'right'
  43. END
  44.  
  45. 'findstr' ":Version."; 'next'
  46. 'wright';'wright';right
  47. version = " "
  48. Do ForEver
  49.   'getasc'; cod = result
  50.   IF cod = 32 THEN break
  51.   IF cod = 0 THEN break
  52.   version = INSERT(D2C(cod),version,LENGTH(version))
  53.   'right'
  54. END
  55.  
  56. 'findstr' ":CharRev."; 'next'
  57. 'wright';'wright';right
  58. namerev = ""
  59. getch
  60. namerev = result
  61. IF namerev = "!" THEN namerev = ""
  62.  
  63. 'findstr' ":InternalVer."; 'next'
  64. 'wright';'wright'
  65. intversion = " "
  66. Do ForEver
  67.   'getasc'; cod = result
  68.   IF cod = 32 THEN break
  69.   IF cod = 0 THEN break
  70.   intversion = INSERT(D2C(cod),intversion,LENGTH(intversion))
  71.   'right'
  72. END
  73.  
  74. IF version = " one" THEN DO
  75.  ver = 0
  76.  rev = 0
  77. END
  78. ELSE DO
  79.  parse VAR version ver "." rev
  80. END
  81.  
  82. IF intversion = " none" THEN DO
  83.  iver = 0
  84.  irev = 0
  85. END
  86. ELSE DO
  87.  parse VAR intversion iver "." irev
  88. END
  89.  
  90. top;'findstr ":Version."';next;wright;wright
  91. 'write "V"';'write ' ver; 'write "."'; 'write' rev; 'write " "';
  92. findstr ":InternalVer.";next;wright;wright
  93. write iver;write "."; write irev ;deleol
  94. 'findstr' ":Date."; 'next';
  95. 'wright';'wright';
  96. 'write' space(date(),1,"-");
  97. 'findstr "MODULE"';next;wright
  98. write name; write "Version"; write ";";deleol
  99. 'findstr "*="'
  100. next;right;right;right;
  101. write ver;'write ";"';deleol
  102. next;right;right;right;
  103. write rev;'write ";"';deleol
  104. next;right;right;right;
  105. write iver;'write ";"';deleol
  106. next;right;right;right;
  107. write irev;'write ";"';deleol
  108. next;right;right;right;
  109. writeasc 34;write "\x00\x00\x00"
  110. IF namerev = "" THEN write "\x20"
  111. ELSE write namerev
  112. writeasc 34;write ";";deleol
  113. next;right;right;right;
  114. writeasc 34; 'write' space(date(),1,"-"); writeasc 34;write ";";deleol
  115. next;right;right;right;
  116. writeasc 34; write name; writeasc 34; write ";";deleol
  117. next;right;right;right;
  118. writeasc 34; write name; 'write " V"';write ver; write "."; write rev ; write namerev;writeasc 34;write ";";deleol
  119. next;right;right;right;
  120. writeasc 34; write name ; 'write " V"'; write ver; write "."; write rev ; write namerev; 'write " "'; 'write' space(date(),1,"-"); writeasc 34; write ";"; deleol
  121. next;right;right;right;
  122. writeasc 34; 'write "$VER: "'; write name ; 'write " "'; write ver; write "."; write rev ; write namerev;'write " ("'; 'write' space(date(),1,"-"); write ")"; writeasc 34; write ";"; deleol
  123. 'findstr "END"';next;wright
  124. write name; write "Version"; write ".";deleol
  125. inserton
  126. savename ='txt/'||DELSTR(name,1,1)||'Version.mod'
  127. saveas savename
  128. filename ='doc/'||DELSTR(name,1,1)||'-History'
  129. newwindow
  130. load filename
  131. bottom;first;'return'
  132. 'write "----------------------------------------------------------------------"'
  133. 'return'
  134. write 'Ver: '; gotox 6; write version; write namerev
  135. gotox 14 ;write 'IntRev: '; gotox 22; write intversion; gotox 34;
  136. write '[awn]';gotox 40; write space(date(),1,"-");'return'
  137. gotox 4
  138.